Top 10k strings from Deflator (19xx)(Garry Rowland).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 c$(d);" in 19";("0"
   2 ;"Enter last two digits of year (00-";yl;"):"
   2 880pp88pp088
   2 "ffg,5.075
   1 }}r}r}r}}r}r}rr}r
   1 |333,133.5
   1 y=(j/d*100
   1 v)+"."+("0"
   1 ffff,126.1
   1 c$(d/vp+.005
   1 c$(d*vp);" at 19";("0"
   1 ba=1.0569185
   1 Y`]`N`N`D`
   1 RPI indice (base 1987) 1987 to 1992
   1 PFN-PRINT3
   1 PFN-LENGTH3
   1 Deflator  a0
   1 =);" at 19";("0"
   1 ;i$;"_   "
   1 ;"~V~alue in 19";("0"
   1 ;"|~V~ALUE OF THE POUND|"
   1 ;"|D E F L A T O R|";
   1 ;"{L9886}|ANN~U~AL INFL~A~TION|"
   1 ;"{L9886}by Garry Rowland"
   1 ;"{L9884}This program calculates the value of"'"wages, property, possessions and"'"savings in real terms. This is done by"'"subtracting the effect of inflation."'"This is called deflation."''"CAUTION"'"Calculations use the average yearly rate of inflation and are not accurate enough for use in contracts."''"PRESS A KEY";:
   1 ;"{L9884}The graph shows the percentage change"'
   1 ;"{L9884}PRESS KEY A-C TO SELECT OPTION":
   1 ;"{L9884}1900 - 19";yl;
   1 ;"{L9883}|O P T I O N  M E N U|"''
   1 ;"on the average RPI indice for each year."
   1 ;"Value of the pound"'
   1 ;"Save program"
   1 ;"Price/earnings"'
   1 ;"Press key A-D{L9886}";
   1 ;"Press a key";
   1 ;"Press a key to exit";
   1 ;"Option menu"
   1 ;"Enter price/earnings in pounds:"
   1 ;"Base year 19";("0"
   1 ;"Annual inflation"'
   1 ;"1900 10   20   30   40   50   60   70   80   90";
   1 ;" PUBLIC DOMAIN                 "
   1 ;"               ";
   1 8pp00pp088
   1 880pp08pp088
   1 23638-82":
   1 23637+256*
   1 );vy;" prices.";
   1 );vy;" = `";
   1 );vy'"worth `";
   1 );by;" prices."'"`";
   1 );by;" = `1"'
   1 );by'"worth `";
   1 "deflator"
   1  Get numeric input
   1  Get new value year
   1  Get base year
   1  Get RPI for year y
   1  Deflate pound
   1  DEFLATOR by G.Rowland (public domain)
   1  Calculate price/earnings in real terms
   1  Annual inflation
   1  Annual average "all items" RPI indice (base 1985) 1900-1986
   1  ",,"     
   1   ",,"